home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 44 / Amiga Format CD44 (1999-08-26)(Future Publishing)(GB)(Track 1 of 3)[!][issue 1999-10].iso / -in_the_mag- / basics / amos / intuiextend20b.lha / distribution / exemples / 3dCuboýÅe.asc < prev    next >
Text File  |  1980-03-03  |  2KB  |  85 lines
  1. '**************************************
  2. '                                     *
  3. '     IntuiExtend.Lib 2.0/@1995-98    *
  4. '                                     *
  5. '          by CIERP Philippe.         *
  6. '                                     *
  7. '          from AMIGAzette 83         *
  8. '                                     *
  9. '**************************************
  10. '
  11. ' Command
  12. '  -Wb 3d Eye
  13. '  -Wb 3d Centre 
  14. '  -Wb 3d Angle
  15. '  -Wb 3d Point
  16. '  -Wb 3d X
  17. '  -Wb 3d Y
  18. '
  19. Screen Open 0,320,256,4,0
  20. Curs Off : Flash Off : Cls 0
  21. Double Buffer : Autoback 0
  22. '
  23. Restore P
  24. Read P
  25. Dim PSET(2,P),X(P),Y(P)
  26. For T=0 To P
  27.    Read PSET(0,T),PSET(1,T),PSET(2,T)
  28. Next T
  29. '
  30. Restore G
  31. Read G
  32. Dim POLY(2,G)
  33. For T=0 To G
  34.    Read POLY(0,T),POLY(1,T),POLY(2,T)
  35. Next T
  36. '
  37. Wb 3d Eye 0,0,500
  38. Wb 3d Centre Screen Width/2,Screen Height/2
  39. '
  40. While Mouse Key<>2
  41.    Add AX,1,0 To 359
  42.    Add AY,1,0 To 359
  43.    Add AZ,1,0 To 359
  44.    Wb 3d Angle AX,AY,AZ
  45.    For T=0 To P
  46.       Wb 3d Point PSET(0,T),PSET(1,T),PSET(2,T)
  47.       X(T)=Wb 3d X : Y(T)=Wb 3d Y
  48.    Next T
  49.    For T=0 To G
  50.       X0=X(POLY(0,T)) : Y0=Y(POLY(0,T))
  51.       X1=X(POLY(1,T)) : Y1=Y(POLY(1,T))
  52.       X2=X(POLY(2,T)) : Y2=Y(POLY(2,T))
  53.       Polyline X0,Y0 To X1,Y1 To X2,Y2 To X0,Y0
  54.    Next T
  55.    Locate ,0 : Print Timer
  56.    Screen Swap 
  57.    Cls 0 : Timer=0
  58. Wend 
  59. '
  60. P:
  61. Data 8-1
  62. Data -100,-100,-100
  63. Data 100,-100,-100
  64. Data 100,100,-100
  65. Data -100,100,-100
  66. Data -100,-100,100
  67. Data 100,-100,100
  68. Data 100,100,100
  69. Data -100,100,100
  70. '
  71. G:
  72. Data 12-1
  73. Data 0,1,3
  74. Data 1,2,3
  75. Data 4,5,7
  76. Data 5,6,7
  77. Data 0,4,7
  78. Data 7,3,0
  79. Data 1,5,4
  80. Data 4,0,1
  81. Data 2,6,5
  82. Data 5,1,2
  83. Data 3,7,6
  84. Data 6,2,3
  85.